home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / comm / bbs / TA1_22.lha / Rexx / DeepSpace.trans next >
Text File  |  1996-10-06  |  835b  |  34 lines
  1. /* DeepSpace.trans - example for standard I/O (CLI) doors */
  2.  
  3. OPTIONS FAILAT 999          /* Keeps users out of the shell! */
  4. OPTIONS RESULTS
  5.  
  6. CALL PRAGMA('stack',50000)
  7.  
  8. USERINFO A ; name = UPPER(RESULT)
  9. sname=word(name,1)
  10. nname=word(name,2)
  11. SYSTEMINFO M ; time = RESULT
  12. SYSTEMINFO 8 ; line = RESULT
  13. id=time(s)
  14.  
  15. CLS
  16. transmit "Loading Deep Space..."
  17.  
  18. SetNodeLocation Name' is playing Deep Space'
  19.  
  20. path='t:ds-'||sname||nname||id||'.'line   /* change this to reflect your directory path */
  21.  
  22. OPEN(temp,path,'W')
  23. WRITELN(temp,'FailAt 99999')
  24. WRITELN(temp,'CD BBS:Extras/DeepSpace')
  25. WRITELN(temp,'DeepSpace '||name||' T='||time||' D=60000 ECHO')
  26. WRITELN(temp,'endcli')
  27. CLOSE(temp)
  28.  
  29. ADDRESS COMMAND 'NewShell FIFO:ds'id'/rwkes from 'path
  30. ADDRESS COMMAND 'BBS:Bin/TrShell -n'line' -d -e -fds'id 
  31. ADDRESS COMMAND 'Delete 'path' quiet'
  32.  
  33. EXIT 0
  34.